home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume3 / g-format / part4 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  33.6 KB
  1. From: J.D.Aplevich <decvax!watmath!watdcsu!aplevich>
  2. Subject: G-format compilers for Ultrix/Unix Vaxes (4 of 4)
  3. Newsgroups: mod.sources
  4. Approved: jpn@panda.UUCP
  5.  
  6. Mod.sources:  Volume 3, Issue 40
  7. Submitted by: J.D.Aplevich <decvax!watmath!watdcsu!aplevich>
  8.  
  9.  
  10. #!/bin/sh
  11. # This is a shell archive, meaning:
  12. # 1. Remove everything above the #!/bin/sh line.
  13. # 2. Save the resulting text in a file.
  14. # 3. Execute the file with /bin/sh (not csh) to create the files:
  15. #    gfloat
  16. # This archive created: Wed Oct 30 20:44:40 1985
  17. export PATH; PATH=/bin:$PATH
  18. if test ! -d 'gfloat'
  19. then
  20.     mkdir 'gfloat'
  21. fi
  22. cd 'gfloat'
  23. if test ! -d 'f77'
  24. then
  25.     mkdir 'f77'
  26. fi
  27. cd 'f77'
  28. if test ! -d 'src'
  29. then
  30.     mkdir 'src'
  31. fi
  32. cd 'src'
  33. if test ! -d 'f77pass1'
  34. then
  35.     mkdir 'f77pass1'
  36. fi
  37. cd 'f77pass1'
  38. if test -f 'intr.c.diff'
  39. then
  40.     echo shar: over-writing existing file "'intr.c.diff'"
  41. fi
  42. cat << \SHAR_EOF > 'intr.c.diff'
  43. *** ../f77/src/f77pass1/intr.c.orig    Tue Oct 29 15:16:01 1985
  44. --- ../f77/src/f77pass1/intr.c    Tue Oct 29 15:22:50 1985
  45. ***************
  46. *** 237,242
  47.       { TYCOMPLEX,TYCOMPLEX,1,"r_cnjg" },
  48.       { TYDCOMPLEX,TYDCOMPLEX,1,"d_cnjg" },
  49.   
  50.       { TYREAL,TYREAL,1,"r_sqrt", 1 },
  51.       { TYDREAL,TYDREAL,1,"d_sqrt", 1 },
  52.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  53.  
  54. --- 237,243 -----
  55.       { TYCOMPLEX,TYCOMPLEX,1,"r_cnjg" },
  56.       { TYDCOMPLEX,TYDCOMPLEX,1,"d_cnjg" },
  57.   
  58. + #ifndef GFLOAT
  59.       { TYREAL,TYREAL,1,"r_sqrt", 1 },
  60.   #else GFLOAT
  61.       { TYREAL,TYREAL,1,"r_sqrt" },
  62. ***************
  63. *** 238,243
  64.       { TYDCOMPLEX,TYDCOMPLEX,1,"d_cnjg" },
  65.   
  66.       { TYREAL,TYREAL,1,"r_sqrt", 1 },
  67.       { TYDREAL,TYDREAL,1,"d_sqrt", 1 },
  68.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  69.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  70.  
  71. --- 239,247 -----
  72.   
  73.   #ifndef GFLOAT
  74.       { TYREAL,TYREAL,1,"r_sqrt", 1 },
  75. + #else GFLOAT
  76. +     { TYREAL,TYREAL,1,"r_sqrt" },
  77. + #endif GFLOAT
  78.       { TYDREAL,TYDREAL,1,"d_sqrt", 1 },
  79.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  80.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  81. ***************
  82. *** 242,247
  83.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  84.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  85.   
  86.       { TYREAL,TYREAL,1,"r_exp", 2 },
  87.       { TYDREAL,TYDREAL,1,"d_exp", 2 },
  88.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  89.  
  90. --- 246,252 -----
  91.       { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
  92.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  93.   
  94. + #ifndef GFLOAT
  95.       { TYREAL,TYREAL,1,"r_exp", 2 },
  96.   #else GFLOAT
  97.       { TYREAL,TYREAL,1,"r_exp" },
  98. ***************
  99. *** 243,248
  100.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sqrt" },
  101.   
  102.       { TYREAL,TYREAL,1,"r_exp", 2 },
  103.       { TYDREAL,TYDREAL,1,"d_exp", 2 },
  104.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  105.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  106.  
  107. --- 248,256 -----
  108.   
  109.   #ifndef GFLOAT
  110.       { TYREAL,TYREAL,1,"r_exp", 2 },
  111. + #else GFLOAT
  112. +     { TYREAL,TYREAL,1,"r_exp" },
  113. + #endif GFLOAT
  114.       { TYDREAL,TYDREAL,1,"d_exp", 2 },
  115.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  116.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  117. ***************
  118. *** 247,252
  119.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  120.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  121.   
  122.       { TYREAL,TYREAL,1,"r_log", 3 },
  123.       { TYDREAL,TYDREAL,1,"d_log", 3 },
  124.       { TYCOMPLEX,TYCOMPLEX,1,"c_log" },
  125.  
  126. --- 255,261 -----
  127.       { TYCOMPLEX,TYCOMPLEX,1,"c_exp" },
  128.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  129.   
  130. + #ifndef GFLOAT
  131.       { TYREAL,TYREAL,1,"r_log", 3 },
  132.   #else GFLOAT
  133.       { TYREAL,TYREAL,1,"r_log" },
  134. ***************
  135. *** 248,253
  136.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_exp" },
  137.   
  138.       { TYREAL,TYREAL,1,"r_log", 3 },
  139.       { TYDREAL,TYDREAL,1,"d_log", 3 },
  140.       { TYCOMPLEX,TYCOMPLEX,1,"c_log" },
  141.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_log" },
  142.  
  143. --- 257,265 -----
  144.   
  145.   #ifndef GFLOAT
  146.       { TYREAL,TYREAL,1,"r_log", 3 },
  147. + #else GFLOAT
  148. +     { TYREAL,TYREAL,1,"r_log" },
  149. + #endif GFLOAT
  150.       { TYDREAL,TYDREAL,1,"d_log", 3 },
  151.       { TYCOMPLEX,TYCOMPLEX,1,"c_log" },
  152.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_log" },
  153. ***************
  154. *** 255,260
  155.       { TYREAL,TYREAL,1,"r_lg10" },
  156.       { TYDREAL,TYDREAL,1,"d_lg10" },
  157.   
  158.       { TYREAL,TYREAL,1,"r_sin", 4 },
  159.       { TYDREAL,TYDREAL,1,"d_sin", 4 },
  160.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  161.  
  162. --- 267,273 -----
  163.       { TYREAL,TYREAL,1,"r_lg10" },
  164.       { TYDREAL,TYDREAL,1,"d_lg10" },
  165.   
  166. + #ifndef GFLOAT
  167.       { TYREAL,TYREAL,1,"r_sin", 4 },
  168.   #else GFLOAT
  169.       { TYREAL,TYREAL,1,"r_sin" }, 
  170. ***************
  171. *** 256,261
  172.       { TYDREAL,TYDREAL,1,"d_lg10" },
  173.   
  174.       { TYREAL,TYREAL,1,"r_sin", 4 },
  175.       { TYDREAL,TYDREAL,1,"d_sin", 4 },
  176.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  177.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  178.  
  179. --- 269,277 -----
  180.   
  181.   #ifndef GFLOAT
  182.       { TYREAL,TYREAL,1,"r_sin", 4 },
  183. + #else GFLOAT
  184. +     { TYREAL,TYREAL,1,"r_sin" }, 
  185. + #endif GFLOAT
  186.       { TYDREAL,TYDREAL,1,"d_sin", 4 },
  187.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  188.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  189. ***************
  190. *** 260,265
  191.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  192.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  193.   
  194.       { TYREAL,TYREAL,1,"r_cos", 5 },
  195.       { TYDREAL,TYDREAL,1,"d_cos", 5 },
  196.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  197.  
  198. --- 276,282 -----
  199.       { TYCOMPLEX,TYCOMPLEX,1,"c_sin" },
  200.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  201.   
  202. + #ifndef GFLOAT
  203.       { TYREAL,TYREAL,1,"r_cos", 5 },
  204.   #else GFLOAT
  205.       { TYREAL,TYREAL,1,"r_cos" },
  206. ***************
  207. *** 261,266
  208.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_sin" },
  209.   
  210.       { TYREAL,TYREAL,1,"r_cos", 5 },
  211.       { TYDREAL,TYDREAL,1,"d_cos", 5 },
  212.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  213.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  214.  
  215. --- 278,286 -----
  216.   
  217.   #ifndef GFLOAT
  218.       { TYREAL,TYREAL,1,"r_cos", 5 },
  219. + #else GFLOAT
  220. +     { TYREAL,TYREAL,1,"r_cos" },
  221. + #endif GFLOAT
  222.       { TYDREAL,TYDREAL,1,"d_cos", 5 },
  223.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  224.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  225. ***************
  226. *** 265,270
  227.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  228.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  229.   
  230.       { TYREAL,TYREAL,1,"r_tan", 6 },
  231.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  232.   
  233.  
  234. --- 285,291 -----
  235.       { TYCOMPLEX,TYCOMPLEX,1,"c_cos" },
  236.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  237.   
  238. + #ifndef GFLOAT
  239.       { TYREAL,TYREAL,1,"r_tan", 6 },
  240.   #else GFLOAT
  241.       { TYREAL,TYREAL,1,"r_tan" },
  242. ***************
  243. *** 266,271
  244.       { TYDCOMPLEX,TYDCOMPLEX,1,"z_cos" },
  245.   
  246.       { TYREAL,TYREAL,1,"r_tan", 6 },
  247.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  248.   
  249.       { TYREAL,TYREAL,1,"r_asin", 7 },
  250.  
  251. --- 287,295 -----
  252.   
  253.   #ifndef GFLOAT
  254.       { TYREAL,TYREAL,1,"r_tan", 6 },
  255. + #else GFLOAT
  256. +     { TYREAL,TYREAL,1,"r_tan" },
  257. + #endif GFLOAT
  258.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  259.   
  260.   #ifndef GFLOAT
  261. ***************
  262. *** 268,273
  263.       { TYREAL,TYREAL,1,"r_tan", 6 },
  264.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  265.   
  266.       { TYREAL,TYREAL,1,"r_asin", 7 },
  267.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  268.   
  269.  
  270. --- 292,298 -----
  271.   #endif GFLOAT
  272.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  273.   
  274. + #ifndef GFLOAT
  275.       { TYREAL,TYREAL,1,"r_asin", 7 },
  276.   #else GFLOAT
  277.       { TYREAL,TYREAL,1,"r_asin" },
  278. ***************
  279. *** 269,274
  280.       { TYDREAL,TYDREAL,1,"d_tan", 6 },
  281.   
  282.       { TYREAL,TYREAL,1,"r_asin", 7 },
  283.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  284.   
  285.       { TYREAL,TYREAL,1,"r_acos", 8 },
  286.  
  287. --- 294,302 -----
  288.   
  289.   #ifndef GFLOAT
  290.       { TYREAL,TYREAL,1,"r_asin", 7 },
  291. + #else GFLOAT
  292. +     { TYREAL,TYREAL,1,"r_asin" },
  293. + #endif GFLOAT
  294.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  295.   
  296.   #ifndef GFLOAT
  297. ***************
  298. *** 271,276
  299.       { TYREAL,TYREAL,1,"r_asin", 7 },
  300.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  301.   
  302.       { TYREAL,TYREAL,1,"r_acos", 8 },
  303.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  304.   
  305.  
  306. --- 299,305 -----
  307.   #endif GFLOAT
  308.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  309.   
  310. + #ifndef GFLOAT
  311.       { TYREAL,TYREAL,1,"r_acos", 8 },
  312.   #else GFLOAT
  313.       { TYREAL,TYREAL,1,"r_acos" },
  314. ***************
  315. *** 272,277
  316.       { TYDREAL,TYDREAL,1,"d_asin", 7 },
  317.   
  318.       { TYREAL,TYREAL,1,"r_acos", 8 },
  319.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  320.   
  321.       { TYREAL,TYREAL,1,"r_atan", 9 },
  322.  
  323. --- 301,309 -----
  324.   
  325.   #ifndef GFLOAT
  326.       { TYREAL,TYREAL,1,"r_acos", 8 },
  327. + #else GFLOAT
  328. +     { TYREAL,TYREAL,1,"r_acos" },
  329. + #endif GFLOAT
  330.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  331.   
  332.   #ifndef GFLOAT
  333. ***************
  334. *** 274,279
  335.       { TYREAL,TYREAL,1,"r_acos", 8 },
  336.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  337.   
  338.       { TYREAL,TYREAL,1,"r_atan", 9 },
  339.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  340.   
  341.  
  342. --- 306,312 -----
  343.   #endif GFLOAT
  344.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  345.   
  346. + #ifndef GFLOAT
  347.       { TYREAL,TYREAL,1,"r_atan", 9 },
  348.   #else GFLOAT
  349.       { TYREAL,TYREAL,1,"r_atan" },
  350. ***************
  351. *** 275,280
  352.       { TYDREAL,TYDREAL,1,"d_acos", 8 },
  353.   
  354.       { TYREAL,TYREAL,1,"r_atan", 9 },
  355.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  356.   
  357.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  358.  
  359. --- 308,316 -----
  360.   
  361.   #ifndef GFLOAT
  362.       { TYREAL,TYREAL,1,"r_atan", 9 },
  363. + #else GFLOAT
  364. +     { TYREAL,TYREAL,1,"r_atan" },
  365. + #endif GFLOAT
  366.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  367.   
  368.   #ifndef GFLOAT
  369. ***************
  370. *** 277,282
  371.       { TYREAL,TYREAL,1,"r_atan", 9 },
  372.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  373.   
  374.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  375.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  376.   
  377.  
  378. --- 313,319 -----
  379.   #endif GFLOAT
  380.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  381.   
  382. + #ifndef GFLOAT
  383.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  384.   #else GFLOAT
  385.       { TYREAL,TYREAL,2,"r_atn2" },
  386. ***************
  387. *** 278,283
  388.       { TYDREAL,TYDREAL,1,"d_atan", 9 },
  389.   
  390.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  391.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  392.   
  393.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  394.  
  395. --- 315,323 -----
  396.   
  397.   #ifndef GFLOAT
  398.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  399. + #else GFLOAT
  400. +     { TYREAL,TYREAL,2,"r_atn2" },
  401. + #endif GFLOAT
  402.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  403.   
  404.   #ifndef GFLOAT
  405. ***************
  406. *** 280,285
  407.       { TYREAL,TYREAL,2,"r_atn2", 10 },
  408.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  409.   
  410.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  411.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  412.   
  413.  
  414. --- 320,326 -----
  415.   #endif GFLOAT
  416.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  417.   
  418. + #ifndef GFLOAT
  419.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  420.   #else GFLOAT
  421.       { TYREAL,TYREAL,1,"r_sinh" },
  422. ***************
  423. *** 281,286
  424.       { TYDREAL,TYDREAL,2,"d_atn2", 10 },
  425.   
  426.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  427.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  428.   
  429.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  430.  
  431. --- 322,330 -----
  432.   
  433.   #ifndef GFLOAT
  434.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  435. + #else GFLOAT
  436. +     { TYREAL,TYREAL,1,"r_sinh" },
  437. + #endif GFLOAT
  438.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  439.   
  440.   #ifndef GFLOAT
  441. ***************
  442. *** 283,288
  443.       { TYREAL,TYREAL,1,"r_sinh", 11 },
  444.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  445.   
  446.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  447.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  448.   
  449.  
  450. --- 327,333 -----
  451.   #endif GFLOAT
  452.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  453.   
  454. + #ifndef GFLOAT
  455.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  456.   #else GFLOAT
  457.       { TYREAL,TYREAL,1,"r_cosh" },
  458. ***************
  459. *** 284,289
  460.       { TYDREAL,TYDREAL,1,"d_sinh", 11 },
  461.   
  462.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  463.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  464.   
  465.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  466.  
  467. --- 329,337 -----
  468.   
  469.   #ifndef GFLOAT
  470.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  471. + #else GFLOAT
  472. +     { TYREAL,TYREAL,1,"r_cosh" },
  473. + #endif GFLOAT
  474.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  475.   
  476.   #ifndef GFLOAT
  477. ***************
  478. *** 286,291
  479.       { TYREAL,TYREAL,1,"r_cosh", 12 },
  480.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  481.   
  482.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  483.       { TYDREAL,TYDREAL,1,"d_tanh", 13 },
  484.   
  485.  
  486. --- 334,340 -----
  487.   #endif GFLOAT
  488.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  489.   
  490. + #ifndef GFLOAT
  491.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  492.   #else GFLOAT
  493.       { TYREAL,TYREAL,1,"r_tanh" },
  494. ***************
  495. *** 287,292
  496.       { TYDREAL,TYDREAL,1,"d_cosh", 12 },
  497.   
  498.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  499.       { TYDREAL,TYDREAL,1,"d_tanh", 13 },
  500.   
  501.       { TYCHAR,TYLOGICAL,2,"hl_ge" },
  502.  
  503. --- 336,344 -----
  504.   
  505.   #ifndef GFLOAT
  506.       { TYREAL,TYREAL,1,"r_tanh", 13 },
  507. + #else GFLOAT
  508. +     { TYREAL,TYREAL,1,"r_tanh" },
  509. + #endif GFLOAT
  510.       { TYDREAL,TYDREAL,1,"d_tanh", 13 },
  511.   
  512.       { TYCHAR,TYLOGICAL,2,"hl_ge" },
  513. ***************
  514. *** 306,311
  515.       { TYDREAL,TYSHORT,1,"hd_expn" },
  516.       { TYDREAL,TYLONG,1,"id_expn" },
  517.   
  518.       { TYREAL,TYREAL,1,"r_absp" },
  519.       { TYDREAL,TYDREAL,1,"d_absp" },
  520.   
  521.  
  522. --- 358,364 -----
  523.       { TYDREAL,TYSHORT,1,"hd_expn" },
  524.       { TYDREAL,TYLONG,1,"id_expn" },
  525.   
  526. + #ifndef GFLOAT
  527.       { TYREAL,TYREAL,1,"r_absp" },
  528.   #else GFLOAT
  529.       { TYREAL,TYDREAL,1,"r_absp" },
  530. ***************
  531. *** 307,312
  532.       { TYDREAL,TYLONG,1,"id_expn" },
  533.   
  534.       { TYREAL,TYREAL,1,"r_absp" },
  535.       { TYDREAL,TYDREAL,1,"d_absp" },
  536.   
  537.       { TYREAL,TYDREAL,1,"r_rrsp" },
  538.  
  539. --- 360,368 -----
  540.   
  541.   #ifndef GFLOAT
  542.       { TYREAL,TYREAL,1,"r_absp" },
  543. + #else GFLOAT
  544. +     { TYREAL,TYDREAL,1,"r_absp" },
  545. + #endif GFLOAT
  546.       { TYDREAL,TYDREAL,1,"d_absp" },
  547.   
  548.       { TYREAL,TYDREAL,1,"r_rrsp" },
  549. ***************
  550. *** 312,317
  551.       { TYREAL,TYDREAL,1,"r_rrsp" },
  552.       { TYDREAL,TYDREAL,1,"d_rrsp" },
  553.   
  554.       { TYREAL,TYREAL,1,"r_frac" },
  555.       { TYDREAL,TYDREAL,1,"d_frac" },
  556.   
  557.  
  558. --- 368,374 -----
  559.       { TYREAL,TYDREAL,1,"r_rrsp" },
  560.       { TYDREAL,TYDREAL,1,"d_rrsp" },
  561.   
  562. + #ifndef GFLOAT
  563.       { TYREAL,TYREAL,1,"r_frac" },
  564.   #else GFLOAT
  565.       { TYREAL,TYDREAL,1,"r_frac" },
  566. ***************
  567. *** 313,318
  568.       { TYDREAL,TYDREAL,1,"d_rrsp" },
  569.   
  570.       { TYREAL,TYREAL,1,"r_frac" },
  571.       { TYDREAL,TYDREAL,1,"d_frac" },
  572.   
  573.       { TYREAL,TYREAL,2,"r_make" },
  574.  
  575. --- 370,378 -----
  576.   
  577.   #ifndef GFLOAT
  578.       { TYREAL,TYREAL,1,"r_frac" },
  579. + #else GFLOAT
  580. +     { TYREAL,TYDREAL,1,"r_frac" },
  581. + #endif GFLOAT
  582.       { TYDREAL,TYDREAL,1,"d_frac" },
  583.   
  584.   #ifndef GFLOAT
  585. ***************
  586. *** 315,320
  587.       { TYREAL,TYREAL,1,"r_frac" },
  588.       { TYDREAL,TYDREAL,1,"d_frac" },
  589.   
  590.       { TYREAL,TYREAL,2,"r_make" },
  591.       { TYDREAL,TYDREAL,2,"d_make" },
  592.   
  593.  
  594. --- 375,381 -----
  595.   #endif GFLOAT
  596.       { TYDREAL,TYDREAL,1,"d_frac" },
  597.   
  598. + #ifndef GFLOAT
  599.       { TYREAL,TYREAL,2,"r_make" },
  600.   #else GFLOAT
  601.       { TYREAL,TYDREAL,2,"r_make" },
  602. ***************
  603. *** 316,321
  604.       { TYDREAL,TYDREAL,1,"d_frac" },
  605.   
  606.       { TYREAL,TYREAL,2,"r_make" },
  607.       { TYDREAL,TYDREAL,2,"d_make" },
  608.   
  609.       { TYREAL,TYREAL,2,"r_scal" },
  610.  
  611. --- 377,385 -----
  612.   
  613.   #ifndef GFLOAT
  614.       { TYREAL,TYREAL,2,"r_make" },
  615. + #else GFLOAT
  616. +     { TYREAL,TYDREAL,2,"r_make" },
  617. + #endif GFLOAT
  618.       { TYDREAL,TYDREAL,2,"d_make" },
  619.   
  620.   #ifndef GFLOAT
  621. ***************
  622. *** 318,323
  623.       { TYREAL,TYREAL,2,"r_make" },
  624.       { TYDREAL,TYDREAL,2,"d_make" },
  625.   
  626.       { TYREAL,TYREAL,2,"r_scal" },
  627.       { TYDREAL,TYDREAL,2,"d_scal" }
  628.   } ;
  629.  
  630. --- 382,388 -----
  631.   #endif GFLOAT
  632.       { TYDREAL,TYDREAL,2,"d_make" },
  633.   
  634. + #ifndef GFLOAT
  635.       { TYREAL,TYREAL,2,"r_scal" },
  636.   #else GFLOAT
  637.       { TYREAL,TYDREAL,2,"r_scal" },
  638. ***************
  639. *** 319,324
  640.       { TYDREAL,TYDREAL,2,"d_make" },
  641.   
  642.       { TYREAL,TYREAL,2,"r_scal" },
  643.       { TYDREAL,TYDREAL,2,"d_scal" }
  644.   } ;
  645.   
  646.  
  647. --- 384,392 -----
  648.   
  649.   #ifndef GFLOAT
  650.       { TYREAL,TYREAL,2,"r_scal" },
  651. + #else GFLOAT
  652. +     { TYREAL,TYDREAL,2,"r_scal" },
  653. + #endif GFLOAT
  654.       { TYDREAL,TYDREAL,2,"d_scal" }
  655.   } ;
  656.   
  657. SHAR_EOF
  658. chmod +x 'intr.c.diff'
  659. if test -f 'optcse.c.diff'
  660. then
  661.     echo shar: over-writing existing file "'optcse.c.diff'"
  662. fi
  663. cat << \SHAR_EOF > 'optcse.c.diff'
  664. *** ../f77/src/f77pass1/optcse.c.orig    Tue Oct 29 15:16:07 1985
  665. --- ../f77/src/f77pass1/optcse.c    Tue Oct 29 15:22:56 1985
  666. ***************
  667. *** 477,483
  668.               case TYLONG:
  669.                   if(ap->ci == bp->ci) return(TRUE);
  670.                   break;
  671. !             case TYREAL:
  672.               case TYDREAL:
  673.                   if(ap->cd[0] == bp->cd[0]) return(TRUE);
  674.                   break;
  675.  
  676. --- 477,487 -----
  677.               case TYLONG:
  678.                   if(ap->ci == bp->ci) return(TRUE);
  679.                   break;
  680. !             case TYREAL: 
  681. ! #ifdef GFLOAT
  682. !                 if(ap->cr[0] == bp->cr[0]) return(TRUE);
  683. !                 break;
  684. ! #endif GFLOAT
  685.               case TYDREAL:
  686.                   if(ap->cd[0] == bp->cd[0]) return(TRUE);
  687.                   break;
  688. ***************
  689. *** 482,487
  690.                   if(ap->cd[0] == bp->cd[0]) return(TRUE);
  691.                   break;
  692.               case TYCOMPLEX:
  693.               case TYDCOMPLEX:
  694.                   if(ap->cd[0] == bp->cd[0] &&
  695.                       ap->cd[1] == bp->cd[1] )
  696.  
  697. --- 486,497 -----
  698.                   if(ap->cd[0] == bp->cd[0]) return(TRUE);
  699.                   break;
  700.               case TYCOMPLEX:
  701. + #ifdef GFLOAT
  702. +                 if(ap->cr[0] == bp->cr[0] &&
  703. +                     ap->cr[1] == bp->cr[1] )
  704. +                     return(TRUE);
  705. +                 break;
  706. + #endif GFLOAT
  707.               case TYDCOMPLEX:
  708.                   if(ap->cd[0] == bp->cd[0] &&
  709.                       ap->cd[1] == bp->cd[1] )
  710. SHAR_EOF
  711. chmod +x 'optcse.c.diff'
  712. if test -f 'optloop.c.diff'
  713. then
  714.     echo shar: over-writing existing file "'optloop.c.diff'"
  715. fi
  716. cat << \SHAR_EOF > 'optloop.c.diff'
  717. *** ../f77/src/f77pass1/optloop.c.orig    Tue Oct 29 15:16:09 1985
  718. --- ../f77/src/f77pass1/optloop.c    Wed Oct 30 20:26:44 1985
  719. ***************
  720. *** 660,665
  721.         return YES;
  722.   
  723.     if (ISREAL(p->constblock.vtype))
  724.       if (abs(p->constblock.const.cd[0]) <= 1.0)
  725.         return YES;
  726.   
  727.  
  728. --- 660,666 -----
  729.         return YES;
  730.   
  731.     if (ISREAL(p->constblock.vtype))
  732. + #ifndef GFLOAT
  733.       if (abs(p->constblock.const.cd[0]) <= 1.0)
  734.   #else GFLOAT
  735.       if (p->constblock.vtype==TYREAL) {
  736. ***************
  737. *** 661,666
  738.   
  739.     if (ISREAL(p->constblock.vtype))
  740.       if (abs(p->constblock.const.cd[0]) <= 1.0)
  741.         return YES;
  742.   
  743.     return NO;
  744.  
  745. --- 662,673 -----
  746.     if (ISREAL(p->constblock.vtype))
  747.   #ifndef GFLOAT
  748.       if (abs(p->constblock.const.cd[0]) <= 1.0)
  749. + #else GFLOAT
  750. +     if (p->constblock.vtype==TYREAL) {
  751. +       if (abs(p->constblock.const.cr[0]) <= 1.0) return YES;
  752. +       }
  753. +     else if (abs(p->constblock.const.cd[0]) <= 1.0)
  754. + #endif GFLOAT
  755.         return YES;
  756.   
  757.     return NO;
  758. SHAR_EOF
  759. chmod +x 'optloop.c.diff'
  760. if test -f 'put.c.diff'
  761. then
  762.     echo shar: over-writing existing file "'put.c.diff'"
  763. fi
  764. cat << \SHAR_EOF > 'put.c.diff'
  765. *** ../f77/src/f77pass1/put.c.orig    Tue Oct 29 15:16:12 1985
  766. --- ../f77/src/f77pass1/put.c    Tue Oct 29 15:23:07 1985
  767. ***************
  768. *** 169,174
  769.   
  770.   if (ISCONST(p))
  771.       {
  772.       if (ISCOMPLEX(p->constblock.vtype))
  773.           return(mkrealcon(p->constblock.vtype == TYCOMPLEX ?
  774.                       TYREAL : TYDREAL,
  775.  
  776. --- 169,175 -----
  777.   
  778.   if (ISCONST(p))
  779.       {
  780. + #ifndef GFLOAT
  781.       if (ISCOMPLEX(p->constblock.vtype))
  782.           return(mkrealcon(p->constblock.vtype == TYCOMPLEX ?
  783.                       TYREAL : TYDREAL,
  784. ***************
  785. *** 173,178
  786.           return(mkrealcon(p->constblock.vtype == TYCOMPLEX ?
  787.                       TYREAL : TYDREAL,
  788.                   p->constblock.const.cd[1]));
  789.       else if (p->constblock.vtype == TYDREAL)
  790.           return(mkrealcon(TYDREAL, 0.0));
  791.       else
  792.  
  793. --- 174,186 -----
  794.           return(mkrealcon(p->constblock.vtype == TYCOMPLEX ?
  795.                       TYREAL : TYDREAL,
  796.                   p->constblock.const.cd[1]));
  797. + #else GFLOAT
  798. +     if (p->constblock.vtype == TYCOMPLEX) 
  799. +         return(mkrealcon( TYREAL, 
  800. +             (double) p->constblock.const.cr[1]));
  801. +     else if (p->constblock.vtype == TYDCOMPLEX)
  802. +         return(mkrealcon( TYDREAL, p->constblock.const.cd[1]));
  803. + #endif GFLOAT
  804.       else if (p->constblock.vtype == TYDREAL)
  805.           return(mkrealcon(TYDREAL, 0.0));
  806.       else
  807. ***************
  808. *** 340,345
  809.           k = 2;
  810.       case TYREAL:
  811.           type = TYREAL;
  812.           goto flpt;
  813.   
  814.       case TYDCOMPLEX:
  815.  
  816. --- 348,354 -----
  817.           k = 2;
  818.       case TYREAL:
  819.           type = TYREAL;
  820. + #ifndef GFLOAT
  821.           goto flpt;
  822.   #else GFLOAT
  823.           for(i = 0 ; i < k ; ++i) 
  824. ***************
  825. *** 341,346
  826.       case TYREAL:
  827.           type = TYREAL;
  828.           goto flpt;
  829.   
  830.       case TYDCOMPLEX:
  831.           k = 2;
  832.  
  833. --- 350,360 -----
  834.           type = TYREAL;
  835.   #ifndef GFLOAT
  836.           goto flpt;
  837. + #else GFLOAT
  838. +         for(i = 0 ; i < k ; ++i) 
  839. +             prconr(asmfile, type, &p->const.cr[i]); 
  840. +         break;
  841. + #endif GFLOAT
  842.   
  843.       case TYDCOMPLEX:
  844.           k = 2;
  845. ***************
  846. *** 346,351
  847.           k = 2;
  848.       case TYDREAL:
  849.           type = TYDREAL;
  850.   
  851.       flpt:
  852.           for(i = 0 ; i < k ; ++i)
  853.  
  854. --- 360,366 -----
  855.           k = 2;
  856.       case TYDREAL:
  857.           type = TYDREAL;
  858. + #ifndef GFLOAT
  859.   
  860.       flpt:
  861.   #endif GFLOAT
  862. ***************
  863. *** 348,353
  864.           type = TYDREAL;
  865.   
  866.       flpt:
  867.           for(i = 0 ; i < k ; ++i)
  868.               prconr(asmfile, type, p->const.cd[i]);
  869.           break;
  870.  
  871. --- 363,369 -----
  872.   #ifndef GFLOAT
  873.   
  874.       flpt:
  875. + #endif GFLOAT
  876.           for(i = 0 ; i < k ; ++i)
  877.   #ifndef GFLOAT
  878.               prconr(asmfile, type, p->const.cd[i]);
  879. ***************
  880. *** 349,354
  881.   
  882.       flpt:
  883.           for(i = 0 ; i < k ; ++i)
  884.               prconr(asmfile, type, p->const.cd[i]);
  885.           break;
  886.   
  887.  
  888. --- 365,371 -----
  889.       flpt:
  890.   #endif GFLOAT
  891.           for(i = 0 ; i < k ; ++i)
  892. + #ifndef GFLOAT
  893.               prconr(asmfile, type, p->const.cd[i]);
  894.   #else GFLOAT
  895.               prconr(asmfile, type, &p->const.cd[i]);
  896. ***************
  897. *** 350,355
  898.       flpt:
  899.           for(i = 0 ; i < k ; ++i)
  900.               prconr(asmfile, type, p->const.cd[i]);
  901.           break;
  902.   
  903.       case TYCHAR:
  904.  
  905. --- 367,375 -----
  906.           for(i = 0 ; i < k ; ++i)
  907.   #ifndef GFLOAT
  908.               prconr(asmfile, type, p->const.cd[i]);
  909. + #else GFLOAT
  910. +             prconr(asmfile, type, &p->const.cd[i]);
  911. + #endif GFLOAT
  912.           break;
  913.   
  914.       case TYCHAR:
  915. SHAR_EOF
  916. chmod +x 'put.c.diff'
  917. if test -f 'vax.c.diff'
  918. then
  919.     echo shar: over-writing existing file "'vax.c.diff'"
  920. fi
  921. cat << \SHAR_EOF > 'vax.c.diff'
  922. *** ../f77/src/f77pass1/vax.c.orig    Tue Oct 29 15:16:18 1985
  923. --- ../f77/src/f77pass1/vax.c    Tue Oct 29 15:23:13 1985
  924. ***************
  925. *** 69,74
  926.   
  927.   ftnint intcon[14] =
  928.       { 2, 2, 2, 2,
  929.         15, 31, 24, 56,
  930.         -128, -128, 127, 127,
  931.         32767, 2147483647 };
  932.  
  933. --- 69,75 -----
  934.   
  935.   ftnint intcon[14] =
  936.       { 2, 2, 2, 2,
  937. + #ifndef GFLOAT
  938.         15, 31, 24, 56,
  939.         -128, -128, 127, 127,
  940.   #else GFLOAT
  941. ***************
  942. *** 71,76
  943.       { 2, 2, 2, 2,
  944.         15, 31, 24, 56,
  945.         -128, -128, 127, 127,
  946.         32767, 2147483647 };
  947.   
  948.   #if HERE == VAX
  949.  
  950. --- 72,81 -----
  951.   #ifndef GFLOAT
  952.         15, 31, 24, 56,
  953.         -128, -128, 127, 127,
  954. + #else GFLOAT
  955. +       15, 31, 24, 53,
  956. +       -128, -1024, 127, 1023,
  957. + #endif GFLOAT
  958.         32767, 2147483647 };
  959.   
  960.   #if HERE == VAX
  961. ***************
  962. *** 78,83
  963.   long realcon[6][2] =
  964.       {
  965.           { 0200, 0 },
  966.           { 0200, 0 },
  967.           { 037777677777, 0 },
  968.           { 037777677777, 037777777777 },
  969.  
  970. --- 83,89 -----
  971.   long realcon[6][2] =
  972.       {
  973.           { 0200, 0 },
  974. + #ifndef GFLOAT
  975.           { 0200, 0 },
  976.   #else GFLOAT
  977.           { 0020, 0 },
  978. ***************
  979. *** 79,84
  980.       {
  981.           { 0200, 0 },
  982.           { 0200, 0 },
  983.           { 037777677777, 0 },
  984.           { 037777677777, 037777777777 },
  985.           { 032200, 0 },
  986.  
  987. --- 85,93 -----
  988.           { 0200, 0 },
  989.   #ifndef GFLOAT
  990.           { 0200, 0 },
  991. + #else GFLOAT
  992. +         { 0020, 0 },
  993. + #endif GFLOAT
  994.           { 037777677777, 0 },
  995.   #ifndef GFLOAT
  996.           { 037777677777, 037777777777 },
  997. ***************
  998. *** 80,85
  999.           { 0200, 0 },
  1000.           { 0200, 0 },
  1001.           { 037777677777, 0 },
  1002.           { 037777677777, 037777777777 },
  1003.           { 032200, 0 },
  1004.           { 022200, 0 }
  1005.  
  1006. --- 89,95 -----
  1007.           { 0020, 0 },
  1008.   #endif GFLOAT
  1009.           { 037777677777, 0 },
  1010. + #ifndef GFLOAT
  1011.           { 037777677777, 037777777777 },
  1012.   #else GFLOAT
  1013.           { 037777677777, 037777777777 },
  1014. ***************
  1015. *** 81,86
  1016.           { 0200, 0 },
  1017.           { 037777677777, 0 },
  1018.           { 037777677777, 037777777777 },
  1019.           { 032200, 0 },
  1020.           { 022200, 0 }
  1021.       };
  1022.  
  1023. --- 91,99 -----
  1024.           { 037777677777, 0 },
  1025.   #ifndef GFLOAT
  1026.           { 037777677777, 037777777777 },
  1027. + #else GFLOAT
  1028. +         { 037777677777, 037777777777 },
  1029. + #endif GFLOAT
  1030.           { 032200, 0 },
  1031.   #ifndef GFLOAT
  1032.           { 022200, 0 }
  1033. ***************
  1034. *** 82,87
  1035.           { 037777677777, 0 },
  1036.           { 037777677777, 037777777777 },
  1037.           { 032200, 0 },
  1038.           { 022200, 0 }
  1039.       };
  1040.   #else
  1041.  
  1042. --- 95,101 -----
  1043.           { 037777677777, 037777777777 },
  1044.   #endif GFLOAT
  1045.           { 032200, 0 },
  1046. + #ifndef GFLOAT
  1047.           { 022200, 0 }
  1048.   #else GFLOAT
  1049.           { 036320, 0 }
  1050. ***************
  1051. *** 83,88
  1052.           { 037777677777, 037777777777 },
  1053.           { 032200, 0 },
  1054.           { 022200, 0 }
  1055.       };
  1056.   #else
  1057.   double realcon[6] =
  1058.  
  1059. --- 97,105 -----
  1060.           { 032200, 0 },
  1061.   #ifndef GFLOAT
  1062.           { 022200, 0 }
  1063. + #else GFLOAT
  1064. +         { 036320, 0 }
  1065. + #endif GFLOAT
  1066.       };
  1067.   #else
  1068.   double realcon[6] =
  1069. ***************
  1070. *** 197,202
  1071.   prconr(fp, type, x)
  1072.   FILEP fp;
  1073.   int type;
  1074.   float x;
  1075.   {
  1076.   fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), x);
  1077.  
  1078. --- 214,220 -----
  1079.   prconr(fp, type, x)
  1080.   FILEP fp;
  1081.   int type;
  1082. + #ifndef GFLOAT
  1083.   float x;
  1084.   #else GFLOAT
  1085.   float *x;
  1086. ***************
  1087. *** 198,203
  1088.   FILEP fp;
  1089.   int type;
  1090.   float x;
  1091.   {
  1092.   fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), x);
  1093.   }
  1094.  
  1095. --- 216,224 -----
  1096.   int type;
  1097.   #ifndef GFLOAT
  1098.   float x;
  1099. + #else GFLOAT
  1100. + float *x;
  1101. + #endif GFLOAT
  1102.   {
  1103.   #ifndef GFLOAT
  1104.   fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), x);
  1105. ***************
  1106. *** 199,204
  1107.   int type;
  1108.   float x;
  1109.   {
  1110.   fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), x);
  1111.   }
  1112.   #endif
  1113.  
  1114. --- 220,226 -----
  1115.   float *x;
  1116.   #endif GFLOAT
  1117.   {
  1118. + #ifndef GFLOAT
  1119.   fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), x);
  1120.   #else GFLOAT
  1121.   fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), *x);
  1122. ***************
  1123. *** 200,205
  1124.   float x;
  1125.   {
  1126.   fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), x);
  1127.   }
  1128.   #endif
  1129.   
  1130.  
  1131. --- 222,230 -----
  1132.   {
  1133.   #ifndef GFLOAT
  1134.   fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), x);
  1135. + #else GFLOAT
  1136. + fprintf(fp, "\t%s\t0f%e\n", (type==TYREAL ? ".float" : ".double"), *x);
  1137. + #endif GFLOAT
  1138.   }
  1139.   #endif
  1140.   
  1141. ***************
  1142. *** 207,212
  1143.   prconr(fp, type, x)
  1144.   FILEP fp;
  1145.   int type;
  1146.   double x;
  1147.   {
  1148.   /* non-portable cheat to preserve bit patterns */
  1149.  
  1150. --- 232,238 -----
  1151.   prconr(fp, type, x)
  1152.   FILEP fp;
  1153.   int type;
  1154. + #ifndef GFLOAT
  1155.   double x;
  1156.   {
  1157.   /* non-portable cheat to preserve bit patterns */
  1158. ***************
  1159. *** 226,231
  1160.       fprintf(fp, "\t.long\t0x%X,0x%X\n", cheat.xl[0], cheat.xl[1]);
  1161.       i = SZDOUBLE;
  1162.       }
  1163.   if(fp == initfile)
  1164.       i_offset += i;
  1165.   else
  1166.  
  1167. --- 252,274 -----
  1168.       fprintf(fp, "\t.long\t0x%X,0x%X\n", cheat.xl[0], cheat.xl[1]);
  1169.       i = SZDOUBLE;
  1170.       }
  1171. + #else GFLOAT
  1172. + /* This assumes two longs make a double */
  1173. + long *x;
  1174. + {
  1175. + register int i;
  1176. + 
  1177. + if(type == TYREAL)
  1178. +     {
  1179. +     fprintf(fp, "\t.long\t0x%X\n", *x );
  1180. +     i = SZFLOAT;
  1181. +     }
  1182. + else
  1183. +     {
  1184. +     fprintf(fp, "\t.long\t0x%X,0x%X\n", *x, *(x+1) );
  1185. +     i = SZDOUBLE;
  1186. +     }
  1187. + #endif GFLOAT
  1188.   if(fp == initfile)
  1189.       i_offset += i;
  1190.   else
  1191. ***************
  1192. *** 369,374
  1193.   else if (type == TYSHORT)
  1194.       p2pass("\ttstw\tr0");
  1195.   else
  1196.       p2pass("\ttstd\tr0");
  1197.   p2pi("\tjlss\tL%d", neg);
  1198.   p2pi("\tjeql\tL%d", zer);
  1199.  
  1200. --- 412,418 -----
  1201.   else if (type == TYSHORT)
  1202.       p2pass("\ttstw\tr0");
  1203.   else
  1204. + #ifndef GFLOAT
  1205.       p2pass("\ttstd\tr0");
  1206.   #else GFLOAT
  1207.       p2pass("\ttstg\tr0");
  1208. ***************
  1209. *** 370,375
  1210.       p2pass("\ttstw\tr0");
  1211.   else
  1212.       p2pass("\ttstd\tr0");
  1213.   p2pi("\tjlss\tL%d", neg);
  1214.   p2pi("\tjeql\tL%d", zer);
  1215.   p2pi("\tjbr\tL%d", pos);
  1216.  
  1217. --- 414,422 -----
  1218.   else
  1219.   #ifndef GFLOAT
  1220.       p2pass("\ttstd\tr0");
  1221. + #else GFLOAT
  1222. +     p2pass("\ttstg\tr0");
  1223. + #endif GFLOAT
  1224.   p2pi("\tjlss\tL%d", neg);
  1225.   p2pi("\tjeql\tL%d", zer);
  1226.   p2pi("\tjbr\tL%d", pos);
  1227. SHAR_EOF
  1228. chmod +x 'vax.c.diff'
  1229. if test -f 'Makefile.diff'
  1230. then
  1231.     echo shar: over-writing existing file "'Makefile.diff'"
  1232. fi
  1233. cat << \SHAR_EOF > 'Makefile.diff'
  1234. *** ../f77/src/f77pass1/Makefile.orig    Tue Oct 29 15:16:19 1985
  1235. --- ../f77/src/f77pass1/Makefile    Tue Oct 29 15:23:17 1985
  1236. ***************
  1237. *** 2,8
  1238.   #
  1239.   
  1240.   CFLAGS          = -O -DHERE=VAX -DTARGET=VAX -DFAMILY=PCC -DUCBVAXASM -DUCBPASS2 \
  1241. !         -I../../include
  1242.   
  1243.   DEST          = $(DESTROOT)/usr/lib
  1244.   
  1245.  
  1246. --- 2,8 -----
  1247.   #
  1248.   
  1249.   CFLAGS          = -O -DHERE=VAX -DTARGET=VAX -DFAMILY=PCC -DUCBVAXASM -DUCBPASS2 \
  1250. !         -DGFLOAT -I../../include
  1251.   
  1252.   DEST          = $(DESTROOT)/usr/lib
  1253.   
  1254. SHAR_EOF
  1255. chmod +x 'Makefile.diff'
  1256. if test -f 'conv.h.diff'
  1257. then
  1258.     echo shar: over-writing existing file "'conv.h.diff'"
  1259. fi
  1260. cat << \SHAR_EOF > 'conv.h.diff'
  1261. *** ../f77/src/f77pass1/conv.h.orig    Tue Oct 29 15:15:46 1985
  1262. --- ../f77/src/f77pass1/conv.h    Tue Oct 29 15:22:26 1985
  1263. ***************
  1264. *** 20,25
  1265.   #define MINWORD -32768
  1266.   
  1267.   typedef
  1268.     struct Dreal
  1269.       {
  1270.         unsigned fract1: 7;
  1271.  
  1272. --- 20,26 -----
  1273.   #define MINWORD -32768
  1274.   
  1275.   typedef
  1276. + #ifndef GFLOAT
  1277.     struct Dreal
  1278.       {
  1279.         unsigned fract1: 7;
  1280. ***************
  1281. *** 24,29
  1282.       {
  1283.         unsigned fract1: 7;
  1284.         unsigned exp: 8;
  1285.         unsigned sign: 1;
  1286.         unsigned fract2: 16;
  1287.         unsigned fract3: 16;
  1288.  
  1289. --- 25,36 -----
  1290.       {
  1291.         unsigned fract1: 7;
  1292.         unsigned exp: 8;
  1293. + #else GFLOAT
  1294. +   struct Greal
  1295. +     {
  1296. +       unsigned fract1: 4;
  1297. +       unsigned exp: 11;
  1298. + #endif GFLOAT
  1299.         unsigned sign: 1;
  1300.         unsigned fract2: 16;
  1301.         unsigned fract3: 16;
  1302. ***************
  1303. *** 29,34
  1304.         unsigned fract3: 16;
  1305.         unsigned fract4: 16;
  1306.       }
  1307.     dreal;
  1308.   
  1309.   typedef
  1310.  
  1311. --- 36,42 -----
  1312.         unsigned fract3: 16;
  1313.         unsigned fract4: 16;
  1314.       }
  1315. + #ifndef GFLOAT
  1316.     dreal;
  1317.   #else GFLOAT
  1318.     greal;
  1319. ***************
  1320. *** 30,35
  1321.         unsigned fract4: 16;
  1322.       }
  1323.     dreal;
  1324.   
  1325.   typedef
  1326.     struct Quad
  1327.  
  1328. --- 38,46 -----
  1329.       }
  1330.   #ifndef GFLOAT
  1331.     dreal;
  1332. + #else GFLOAT
  1333. +   greal;
  1334. + #endif GFLOAT
  1335.   
  1336.   typedef
  1337.     struct Quad
  1338. ***************
  1339. *** 40,45
  1340.     quad;
  1341.   
  1342.   typedef
  1343.     union RealValue
  1344.       {
  1345.         double d;
  1346.  
  1347. --- 51,69 -----
  1348.     quad;
  1349.   
  1350.   typedef
  1351. + #ifdef GFLOAT
  1352. +   struct Freal
  1353. +     {
  1354. +       unsigned fract1: 7;
  1355. +       unsigned exp: 8;
  1356. +       unsigned sign: 1;
  1357. +       unsigned fract2: 16;
  1358. +       unsigned fract3: 16;
  1359. +       unsigned fract4: 16;
  1360. +     }
  1361. +   freal;
  1362. + typedef
  1363. + #endif GFLOAT
  1364.     union RealValue
  1365.       {
  1366.         double d;
  1367. ***************
  1368. *** 44,49
  1369.       {
  1370.         double d;
  1371.         quad   q;
  1372.         dreal  f;
  1373.       }
  1374.     realvalue;
  1375.  
  1376. --- 68,74 -----
  1377.       {
  1378.         double d;
  1379.         quad   q;
  1380. + #ifndef GFLOAT
  1381.         dreal  f;
  1382.   #else GFLOAT
  1383.         freal  f;
  1384. ***************
  1385. *** 45,49
  1386.         double d;
  1387.         quad   q;
  1388.         dreal  f;
  1389.       }
  1390.     realvalue;
  1391.  
  1392. --- 70,78 -----
  1393.         quad   q;
  1394.   #ifndef GFLOAT
  1395.         dreal  f;
  1396. + #else GFLOAT
  1397. +       freal  f;
  1398. +       greal  g;
  1399. + #endif GFLOAT
  1400.       }
  1401.     realvalue;
  1402. SHAR_EOF
  1403. chmod +x 'conv.h.diff'
  1404. chdir ..
  1405. chdir ..
  1406. chdir ..
  1407. if test -f 'modf.s'
  1408. then
  1409.     echo shar: over-writing existing file "'modf.s'"
  1410. fi
  1411. cat << \SHAR_EOF > 'modf.s'
  1412. /*    modf.s    4.1    83/06/27    */
  1413. /*
  1414. NOTE (Apr. 1985): wrtfmt.o calls ecvt in libc.a which calls modf.
  1415. This is a modified source that works only for G-format.
  1416. */
  1417.  
  1418. /*
  1419.  * double modf (value, iptr)
  1420.  * double value, *iptr;
  1421.  *
  1422.  * Modf returns the fractional part of "value",
  1423.  * and stores the integer part indirectly through "iptr".
  1424.  */
  1425.  
  1426. /* #include "DEFS.h" */
  1427. #define    ENTRY(x)    .globl _/**/x; .align 2; _/**/x: .word 0
  1428.  
  1429. ENTRY(modf)
  1430.     emodg    4(ap),$0,$0g1.0,r2,r0
  1431.     jvs    1f            # integer overflow
  1432.     cvtlg    r2,*12(ap)
  1433.     ret
  1434. 1:
  1435.     subg3    r0,4(ap),*12(ap)
  1436.     ret
  1437. SHAR_EOF
  1438. chmod +x 'modf.s'
  1439. if test -f 'NOTE'
  1440. then
  1441.     echo shar: over-writing existing file "'NOTE'"
  1442. fi
  1443. cat << \SHAR_EOF > 'NOTE'
  1444.  
  1445. NOTE (UW, Apr. 1985): wrtfmt.o calls ecvt in libc.a which calls modf.
  1446. Modf must be replaced by a version corrected for G-format uVaxes.
  1447. A source that works is included in this directory.
  1448.  
  1449.     The f77 built-in functions (sin(x), etc) use the C math library and
  1450. are subject to the bugs in it.  As a beginning, re-compile sin.c
  1451. without optimization.
  1452. SHAR_EOF
  1453. chmod +x 'NOTE'
  1454. if test ! -d 'libU77'
  1455. then
  1456.     mkdir 'libU77'
  1457. fi
  1458. cd 'libU77'
  1459. if test -f 'dtime_.c.diff'
  1460. then
  1461.     echo shar: over-writing existing file "'dtime_.c.diff'"
  1462. fi
  1463. cat << \SHAR_EOF > 'dtime_.c.diff'
  1464. 29a30,34
  1465. > #ifdef GFLOAT
  1466. > union { double d;
  1467. >     float r[2];
  1468. >     } res;
  1469. > #endif GFLOAT
  1470. 35a41,44
  1471. > #ifdef GFLOAT
  1472. >     res.r[0] = (dt->usrtime + dt->systime);
  1473. >     return( res.d );
  1474. > #else GFLOAT
  1475. 36a46
  1476. > #endif GFLOAT
  1477. SHAR_EOF
  1478. chmod +x 'dtime_.c.diff'
  1479. if test -f 'Makefile.diff'
  1480. then
  1481.     echo shar: over-writing existing file "'Makefile.diff'"
  1482. fi
  1483. cat << \SHAR_EOF > 'Makefile.diff'
  1484. 6c6
  1485. < CFLAGS          = -O
  1486. ---
  1487. > CFLAGS          = -O -DGFLOAT
  1488. SHAR_EOF
  1489. chmod +x 'Makefile.diff'
  1490. chdir ..
  1491. if test ! -d 'f77.gfloat'
  1492. then
  1493.     mkdir 'f77.gfloat'
  1494. fi
  1495. cd 'f77.gfloat'
  1496. if test -f 'Makefile'
  1497. then
  1498.     echo shar: over-writing existing file "'Makefile'"
  1499. fi
  1500. cat << \SHAR_EOF > 'Makefile'
  1501. PROGRAMS      = f77 f77pass1 f1 f2 fpr fsplit libF77.a libI66.a libI77.a \
  1502.                 libU77.a modf.o
  1503.  
  1504. install:    $(PROGRAMS)
  1505.         @echo Installing f77 in /usr/bin
  1506.         install f77 /usr/bin
  1507.         @echo Installing f77pass1 in /usr/lib
  1508.         install f77pass1 /usr/lib
  1509.         @echo Installing f1 in /lib
  1510.         @install f1 /lib
  1511.         @echo Installing f2 in /lib
  1512.         @install f2 /lib
  1513.         @echo Installing fpr in /usr/ucb
  1514.         @install fpr /usr/ucb
  1515.         @echo Installing fsplit in /usr/ucb
  1516.         @install fsplit /usr/ucb
  1517.         @echo Installing libF77.a in /usr/lib
  1518.         install -m 644 libF77.a /usr/lib
  1519.         ranlib /usr/lib/libF77.a
  1520.         @echo Installing libI77.a in /usr/lib
  1521.         install -m 644 libI77.a /usr/lib
  1522.         ranlib /usr/lib/libI77.a
  1523.         @echo Installing libU77.a in /usr/lib
  1524.         install -m 644 libU77.a /usr/lib
  1525.         ranlib /usr/lib/libU77.a
  1526.         @echo Installing libI66.a in /usr/lib
  1527.         install -m 644 libI66.a /usr/lib
  1528.         @echo Fixing modf.o in /lib/libc.a
  1529.         mv modf.o /lib
  1530.         ar r /lib/libc.a /lib/modf.o
  1531.         ranlib /lib/libc.a
  1532.         rm /lib/modf.o
  1533.  
  1534. collect:    
  1535.         cp /usr/bin/f77 .
  1536.         cp /usr/lib/f77pass1 .
  1537.         cp /lib/f1 .
  1538.         cp /lib/f2 .
  1539.         cp /usr/ucb/fpr .
  1540.         cp /usr/ucb/fsplit .
  1541.         cp /usr/lib/libF77.a .
  1542.         cp /usr/lib/libI77.a .
  1543.         cp /usr/lib/libU77.a .
  1544.         cp /usr/lib/libI66.a .
  1545.         ar x /lib/libc.a modf.o
  1546. SHAR_EOF
  1547. chmod +x 'Makefile'
  1548. if test -f 'READ_ME'
  1549. then
  1550.     echo shar: over-writing existing file "'READ_ME'"
  1551. fi
  1552. cat << \SHAR_EOF > 'READ_ME'
  1553.      This directory contains the modified executable code and libraries
  1554. for f77 to run on a G-float Vax, such as the majority of early microvaxes.
  1555. It also contains a modified modf.o for /lib/libc.a, which contains a 
  1556. bug in Ultrix 1.0.
  1557.  
  1558. 1.  Log on or su as root, and copy this directory to the G-format machine.
  1559.  
  1560. 2.  Type make install from this directory.
  1561.  
  1562. 3.  Stand well back.
  1563.  
  1564. 4.  NOTE that the contents of this directory will be moved to the
  1565.     appropriate places, and will no longer exist here.
  1566.  
  1567. 5.  NOTE ALSO that the f77 built-in math functions access the C math
  1568.     library, and the bugs therein.
  1569. SHAR_EOF
  1570. chmod +x 'READ_ME'
  1571. chdir ..
  1572. if test -f 'tog.p'
  1573. then
  1574.     echo shar: over-writing existing file "'tog.p'"
  1575. fi
  1576. cat << \SHAR_EOF > 'tog.p'
  1577. program torig( input, output );
  1578. { This Pascal program will convert #ifdef GFLOAT files to 
  1579.   pure g-float files.  There is no pretense of efficiency.}
  1580.  
  1581. const buflen=133;
  1582. type bufstr=packed array[1..buflen] of char;
  1583. var
  1584.     buf: bufstr;
  1585.     linlen: integer;
  1586.  
  1587. procedure rdbuf;
  1588. begin
  1589.     linlen := 0;
  1590.     if not eof then while not eoln do begin
  1591.         linlen := linlen+1;
  1592.         read( buf[linlen] )
  1593.         end;
  1594.     if not eof then readln
  1595.     end;
  1596.  
  1597. procedure wrtbuf;
  1598. begin
  1599.     if linlen=0 then writeln
  1600.     else writeln( buf:linlen )
  1601.     end;
  1602.  
  1603. function match( strng: bufstr; len: integer ): boolean;
  1604. var 
  1605.     ok: boolean;
  1606.     i: integer;
  1607. begin
  1608.     i := 1;
  1609.     ok := true;
  1610.     while ok and (i<=len) do begin
  1611.         ok := (strng[i]=buf[i]);  
  1612.         i := i+1
  1613.         end;
  1614.     match := ok
  1615.     end; 
  1616.  
  1617. begin { torig }
  1618.     while not eof do begin
  1619.         rdbuf;
  1620.         if match('#ifdef GFLOAT',13) then 
  1621.             repeat
  1622.                 rdbuf;
  1623.                 if match('#else GFLOAT',12) then 
  1624.                     repeat rdbuf until match('#endif GFLOAT',13)
  1625.                 else if not match('#endif GFLOAT',13) then wrtbuf
  1626.             until match('#endif GFLOAT',13)
  1627.         else if match('#ifndef GFLOAT',14) then
  1628.             repeat
  1629.                 rdbuf;
  1630.                 if match('#else GFLOAT',12) then begin
  1631.                     rdbuf;
  1632.                     while not match('#endif GFLOAT',13) do begin
  1633.                         wrtbuf;
  1634.                         rdbuf
  1635.                         end
  1636.                     end
  1637.             until match('#endif GFLOAT',13)
  1638.         else wrtbuf
  1639.         end
  1640.     end.
  1641. SHAR_EOF
  1642. chmod +x 'tog.p'
  1643. chdir ..
  1644. #    End of shell archive
  1645. exit 0
  1646.  
  1647.